home *** CD-ROM | disk | FTP | other *** search
- object Renameform: TRenameform
- Left = 844
- Top = 304
- BorderStyle = bsDialog
- Caption = 'Rename Archive'
- ClientHeight = 209
- ClientWidth = 417
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Topbevel: TBevel
- Left = 0
- Top = 65
- Width = 417
- Height = 8
- Align = alTop
- Shape = bsTopLine
- end
- object Bevel1: TBevel
- Left = 8
- Top = 168
- Width = 401
- Height = 9
- Shape = bsTopLine
- end
- object Toppanel: TPanel
- Left = 0
- Top = 0
- Width = 417
- Height = 65
- Align = alTop
- BevelOuter = bvNone
- Color = clWhite
- TabOrder = 0
- object Captionlabel: TLabel
- Left = 8
- Top = 8
- Width = 94
- Height = 13
- Caption = 'Rename Archive'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Infolabel: TLabel
- Left = 16
- Top = 24
- Width = 336
- Height = 26
- Caption =
- 'Please enter the new archive name in the lower field. The curren' +
- 't name are shown in the upper field.'
- WordWrap = True
- end
- object Image: TImage
- Left = 361
- Top = 8
- Width = 48
- Height = 48
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- end
- object Newedit: TLabeledEdit
- Left = 8
- Top = 136
- Width = 401
- Height = 21
- EditLabel.Width = 70
- EditLabel.Height = 13
- EditLabel.Caption = 'New file name:'
- LabelPosition = lpAbove
- LabelSpacing = 3
- TabOrder = 1
- end
- object Currentedit: TLabeledEdit
- Left = 8
- Top = 88
- Width = 401
- Height = 21
- EditLabel.Width = 82
- EditLabel.Height = 13
- EditLabel.Caption = 'Current file name:'
- Enabled = False
- LabelPosition = lpAbove
- LabelSpacing = 3
- TabOrder = 2
- end
- object Cancelbutton: TButton
- Left = 336
- Top = 176
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object Renamebutton: TButton
- Left = 256
- Top = 176
- Width = 75
- Height = 25
- Caption = 'Rename'
- Default = True
- ModalResult = 1
- TabOrder = 4
- end
- end
-